sdk/samples/all in on code/Visual Studio 2008/VBPInvokeDll/My Project/Settings.Designer.vb

   1 '------------------------------------------------------------------------------
   2 ' <auto-generated>
   3 '     This code was generated by a tool.
   4 '     Runtime Version:2.0.50727.3521
   5 '
   6 '     Changes to this file may cause incorrect behavior and will be lost if
   7 '     the code is regenerated.
   8 ' </auto-generated>
   9 '------------------------------------------------------------------------------
  10
  11 Option Strict On
  12 Option Explicit On
  13
  14
  15 Namespace My
  16
  17     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
  18      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.0.0.0"),  _
  19      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
  20     Partial Friend NotInheritable Class MySettings
  21         Inherits Global.System.Configuration.ApplicationSettingsBase
  22
  23         Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
  24
  25 #Region "My.Settings Auto-Save Functionality"
  26 #If _MyType = "WindowsForms" Then
  27         Private Shared addedHandler As Boolean
  28
  29         Private Shared addedHandlerLockObject As New Object
  30
  31         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
  32         Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
  33             If My.Application.SaveMySettingsOnExit Then
  34                 My.Settings.Save()
  35             End If
  36         End Sub
  37 #End If
  38 #End Region
  39
  40         Public Shared ReadOnly Property [Default]() As MySettings
  41             Get
  42
  43 #If _MyType = "WindowsForms" Then
  44                    If Not addedHandler Then
  45                         SyncLock addedHandlerLockObject
  46                             If Not addedHandler Then
  47                                 AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
  48                                 addedHandler = True
  49                             End If
  50                         End SyncLock
  51                     End If
  52 #End If
  53                 Return defaultInstance
  54             End Get
  55         End Property
  56     End Class
  57 End Namespace
  58
  59 Namespace My
  60
  61     <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
  62      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
  63      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
  64     Friend Module MySettingsProperty
  65
  66         <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
  67         Friend ReadOnly Property Settings() As Global.VBPInvokeDll.My.MySettings
  68             Get
  69                 Return Global.VBPInvokeDll.My.MySettings.Default
  70             End Get
  71         End Property
  72     End Module
  73 End Namespace